-- card: 4459 from stack: in
-- bmap block id: 5770
-- flags: 0000
-- background id: 8177
-- name: Seating chart
----- HyperTalk script -----
On OpenCard
  global teacher, report
  Put the long date into bkgnd field "Date"
  enablemenu teacher, 0, true
  repeat with x = 1 to 3
    enablemenu teacher, x, true
  end repeat
  enablemenu report, 0, true
  enablemenu report, 6, false
end OpenCard

on doMenu which
  if which is "Add Assignment" then
    send mouseUp to bkgnd button which
    exit doMenu
  else if which is "Add a student" then
    send mouseUp to bkgnd button which
    exit doMenu
  else if which is "Delete a student" then
    send mouseUp to bkgnd button which
    exit doMenu
  else if which is "Attendance" then
    ask "Which student?"
    put char 1 of word 1 of it & word 2 of it into studentname
    put studentname & "Attendance" into studentname
    go to card studentname
  else if which is "Student Profile" then
    ask "Which student?"
    put char 1 of word 1 of it & word 2 of it into studentname
    put studentname & "Profile" into studentname
    go to card studentname
  else if which is "Grades" then
    ask "Which student?"
    put char 1 of word 1 of it & word 2 of it into studentname
    put studentname & "Grades" into studentname
    go to card studentname
  else
    pass domenu
  end if
end doMenu


on closeCard
  repeat with x = 1 to 6
    enablemenu report, x, true
  end repeat
end closeCard






-- part 33 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=52 top=0 right=25 bottom=82
-- title width / last selected line: 0
-- icon id / first selected line: 8538 / 8538
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Grades
----- HyperTalk script -----
on mouseUp
  ask "Which student's grades do you wish to see?"
  put char 1 of word 1 of it into temp
  put temp & word 2 of it & "Grades" into cardname
  go to card cardname
end mouseUp



-- part 34 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=84 top=0 right=19 bottom=109
-- title width / last selected line: 0
-- icon id / first selected line: 15972 / 15972
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Attendance
----- HyperTalk script -----
On MouseUp
  ask "Which student?"
  put char 1 of word 1 of it & word 2 of it into studentname
  put studentname & "Attendance" into studentname
  go to card studentname
end MouseUp


-- part 35 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=108 top=0 right=22 bottom=208
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add a student
----- HyperTalk script -----
on mouseUp
  global className,Period
  Ask "What is the student's name?" with "OK" or "Cancel"
  if it is "Cancel" then exit MouseUp
  put it into StudentName
  put char 1 of word 1 of it & word 2 of it into temp
  set lockscreen to true
  push this card
  go to card "GradesTemplate"
  doMenu "Copy Card"
  pop card
  doMenu "Paste Card"
  put className into card field "Class"
  put period into card field "Period"
  put StudentName into field "Name"
  set name of this card to temp & "Grades"

  push this card
  go to card "AttendanceTemplate"
  doMenu "Copy Card"
  pop card
  doMenu "Paste Card"
  put className into card field "Class"
  put period into card field "Period"
  put StudentName into card field "Name"
  set name of this card to temp & "Attendance"

  push this card
  go to card "ProfileTemplate"
  doMenu "Copy Card"
  pop card
  doMenu "Paste Card"
  put StudentName into field "Name"
  set name of this card to temp & "Profile"
  go to card "seatingchart"
  set lockscreen to false
  answer "Please enter name into seating chart"
end mouseUp



-- part contents for background part 40
----- text -----
Monday, April 18, 1988

-- part contents for background part 58
----- text -----
When you are finished entering the names of your students in the seating chart, click on the "done" button.  Feel free to move the tardy, absent, and edit buttons if you feel it is necessary.

-- part contents for background part 2
----- text -----
Larry
Cooperman

-- part contents for background part 3
----- text -----
John
Jones

-- part contents for background part 4
----- text -----
Lawrence
Sylvester

-- part contents for background part 5
----- text -----
Mary
Friedlich

-- part contents for background part 8
----- text -----
Shere
Simpton

-- part contents for background part 47
----- text -----
1

-- part contents for background part 9
----- text -----
Hamilton
Jones

-- part contents for background part 10
----- text -----
Lila
Strong

-- part contents for background part 11
----- text -----
Curtis
Brandon

-- part contents for background part 14
----- text -----
Dario
Fo

Fo

-- part contents for background part 15
----- text -----
Who
SonFirst

-- part contents for background part 16
----- text -----
This
Life

-- part contents for background part 17
----- text -----
Work
Aday

-- part contents for background part 20
----- text -----
Live
inStyle

-- part contents for background part 21
----- text -----
The
World

-- part contents for background part 22
----- text -----
Life
Imprisonment

-- part contents for background part 24
----- text -----
Help
Iscoming

-- part contents for background part 27
----- text -----
Why
wait

-- part contents for background part 28
----- text -----
Why
Nor

-- part contents for background part 29
----- text -----
The
truth

-- part contents for background part 30
----- text -----
What
Shappening

-- part contents for background part 48
----- text -----
English